﻿<Serializable()> Public Class tunnelSection

    Public Radius As Double = 2.75

    ''' <summary>
    ''' 初始化，SectPnts读入断面观测点
    ''' </summary>
    ''' <remarks></remarks>
    Public SectPnts As TunnelSectionPoints
    ''' <summary>
    ''' 底块中心：以底块圆弧两侧两点及指定半径计算的底块圆心 
    ''' </summary>
    ''' <remarks></remarks>
    Public ButtomCenter As TSPCoor
    Public SectNo As String
    Public instr_height As Double


    Sub New(ByVal path As String)
        SectPnts = New TunnelSectionPoints
        SectPnts.Read(path)
        SectNo = SectPnts.SectionNo
    End Sub

    Sub New()
        SectPnts = New TunnelSectionPoints
    End Sub

    Sub CalButtomCenter2()
        For Each vP As SectionPoint In SectPnts.Points
            vP.Hv = vP.AzimFrom(ButtomCenter)
        Next
    End Sub

End Class
